RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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14-Sep-1984 :06: RUNOFF .SRCJGLBDAT.BLI; (1) 


001 AZTITLE ‘Define global Ligerals and data structures’ | 
8 § MODULE glbdat ( gDENT = 'v04-000' | 
¢ | BEGIN 
0 og i i eeeeeeeeeeeeeeeeeeeeeeeeeeeeteneteetenereeeeteeeeeeeeeeeteeeeeneeeeeeeeete 
'® ® 
$08 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
B19 : = ALL RIGHTS RESERVED. 
Og 1 i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
15.1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE ANY OTHER’ * 
0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
8318 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bis : :* TRANSFERRED. : 
it 
$019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 1 : - CORPORATION. 7 
00 g 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
8 : : i? SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; 
:* . 
' : 
4 $ : EO A AC SST AI a CE RET LE IO RIN SP NOR Py 
0028 1! 3 
0029 1 3 
0030 1 !++ 3 
bos : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS ; 
0038 : ABSTRACT: Global data definitions; contains no instructions. ‘ 
BoR2 : ENVIRONMENT: Transportable 
0037 i AUTHOR: R.W. Friday CREATION DATE: November, 1978 
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vO4-000 Revision History 19-808- 1382 ° 0:88 RUNOFF .SRCJGLBDAT.BLI; ° (28 
; 40 1 ZSBTTL ‘Revision History’ 
3 $3 ! } MODIFIED BY: 
: rk 0 1 i 041 REMO00041 Ray Marshall —_1=June-1984 
: 44 1! Moved XPD_APPEND back into the SAVE/RESTORE area and 
3; 45 0 1! conditidnalized it and XPD_FLAGS for DSRPLUS only. Also 
: <8 0 ! } worked on some of the saan in that area. 
: 48 6 ii 040 KFA00040 Ken Alden 17-Apr-1984 
3 49 .s For DSRPLUS: 
; 3 1! Added a semicolon to the end of the command that 
; 5 ! just preceeds ‘OWN'. 
: 1 i 039 REM00039 Ray Marshall 16-Feb => 15-Mar-1984 
3 4 1! Added one Literal, one otobat variable, and oy global bind 
3 5 2 pers eert containing filetype Lists used mapping the 
3 6 1! output filetype based on the input filetype. ese items 
; ef : are also used when the user defaults the input filetype. 
: §9 1 / The Literal is IPFTCT and indicates how w many cells there are 
; & 1! in the List of input filetypes in IPFT here are also as 
; 61 1! es cells in the List of output sitesende in OPFTOP. The 
3 o¢ 1! variable is IPFTYP and will contain the index into the above 
3 e7 : } mentioned filetype Lists. 
: 65 1 i Also added LFFCTX which is a global context cell used by the 
; 66 : } VMS RTL routine LIBSFIND_FILE. 
: 68 1} 038 REMO0038 Ray Marshall _—«:17=November-1983 
; +4 1! fod’ tied the external definition of ATABLE to use the new 
3 £9 ! macro ATABLE_DEFINITION defined in ATCODE.REQ. 
Ee 1 i 037 REM00037 Ray Marshall — 7=November-1983 
: 7 1! Doubled the size of ATABLE (added another 128 cells) to support 
; 7% 1: the DEC Sus tinst tonal character set. Also, changed it to a 
3 ie ! BYTE VECTOR. 
; 1/ 036 KFA00036 Alden 30-Sep-1983 
: 8 : } Moved items fot. for save/restore fix. 
: 80 1 i 035 REMO0035 Ray Marshall 22-Jul-1983 
3 3 : } Conditionalized TEMP_SIZE_MRA for DSRPLUS only. 
: ‘ 1 i 034 REMO0034 Ray Marshal 22-Jul-1983 
3 1! amen ed TEMP_MRA_SIZE to TEMP_SIZE_MRA so that it will 
3 5 1! que within Ehe first 6 characters for the TOPS- 15 hae 
3 86 1! Added" KWICBR for future addition of cross-book cross-reference 
3 i : support. 
: 89 033 R EROOOSS Ron Randall 9-Jun-1983 
3 ! or 
; 4 : Added flag to indicate when GETNUM is processing an entity. 
: 38 1 i 
3 94 1! For DSRPLU 
3 +4 ' Added general-purpose temporary and hold mra and tsf. 


032  —- REROOO32 Ron Randall —«'11-May-1983 
| 
| 
| 
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G.poAt 
v04-000 Revision History -Sep- RUNOFF .SRCJGLBDAT. 


9G 031 KAD00031 Keith Dawson 9-May-1983 
Remove support for .DX, .PX. 
030 KFA00030 Ken Alden 14-Apr-1983 


Alter headerlevel, pagesize to hyphenated strings. 


KAD00029 Keith Dawson 13-Apr-1983 
Added omitted DSRPLUS conditional on Skeyword_tables. 


028 REROO0028 Ron Randall 06-Apr-1983 
For DSRPLUS: 
Added secondary topnote I0Bs and footnote numbering variables. 


029 


027 REM00027 Ray Marshall 06-Apr-1983 
Fix misspelled Literal in a keyword table definition. 
026 REM00023 Ray Marshall Mar-1983 
Added KWTRPN KWTUOM KWTPOM, & KWIPDP keyword table Listheads. 


Also built the predefined keyword table entries. 


025 REROOO2S Ron Randall 20-Mar-1983 
Fine tuning of topnote globals. 
Deleted passthrough flag. 


024 KAD00024 Keith Dawson 20-Mar-1983 
Removed LNO1 conditionals and all references to .BIX 
and .BIC files. 


023 ERO0023 Ron Randall 19-Mar-1983 

022 KFA00022 Ken Alden 18-Mar-1983 
Changes made were to make SAVE/RESTORE related globals 
visible to DSR. 

021 021 Keith Dawson 07-Mar-1983 
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KADOO 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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| 
RER | 
For DSRPLUS: Added definitions related to topnotes. 
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v04-000 Require fites and Libraries 14 Sep 1984 9:00:38 RUNOFF SRESGLBDAT OL 174 ext 


y XSBTTL "Require files and Libraries’ 
i INCLUDE FILES: 


= 
IO 


LIBRARY 'NXPORT:XPORT'; ' XPORT Library 

REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions 
ZIF DSRPLUS 2THEN 

LIBRARY REQ:DPLLIB'; ! DSRPLUS BLISS Library 
LIBRARY "REQ:DSRLIB'; ! DSR BLISS Library 

! 


| EQUATED SYMBOLS: 


GLOBAL LITERAL 
rintes = 20°34" : UNSIGNED (8), ! Runoff internal excape character. 
| 


i The global Literal s_fmra is used in the module FNONLY. In that 

' module, it is nesessary to reset the MRA size explicitly. The 
po literal assures that the size will be reset to the allocated 
' value. 

1 

s_.fmra = 500, 


i tnmra_size is similarly used in the module TPNOTE. 


' 
tnmra_size = 500, 


ZI1F DSRPLUS XTHEN 
temp_size_mra is similarly used in any module. 


OODNANAE WN 0 OONOAU EWN SO ONO Wh OVO 


temp_size_mra = 100, 

ipftct = ZIF dsrplus ZTHEN 14; ! Number of 
ZELSE 12; If IPFTOP 

2F I ' this lite 

; OWN STORAGE: 


RFI 


¢c cccce 


MS OODNAU EWN $9 OBNAUEWN OC OODNAUES WIN OOODNOUS WN O0O@ 
ce 

COOOCOCOSOCOCOOCOCOSOOSOOOSCOSOOCOOOOOOOOOOOOoOO 

AAA A A A AAA A ARIPIPNINININININIPINIPNINPIPIPOPOPUNYPYINPINPOPINYNPNPPD 2 OO 


inpus file types known. 
& OPFTOP are changed, 
ral may also need changing. 


mt a a a a ak a ns at at at as St 2 Ss 1 2a 2 Ss 9 2 SS SS SS SS Ss ns SY Ss ss SY YS 


eet PN PS Ry RA At td Seth Att tt Se Me Aa aye tee 
a a a a dd dd 
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pp_sca : Sh_r_sca_block; ! Used in PUSH_SCA, POP_SCA macros 


eit 
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MINOR 2 tt 2 OOO 


wrt 


SSB 
ovo wn 


ccccec 


ecc : 
RIF DSRPLUS ZTHEN 


i These DSRPLUS structures are updated by setting the default 
! XPLUS attributes, .ENABLE XPLU 


NOw 


6 
Define global literals and data structures tbese 1984 00:41: AX-11 Bliss-32 V4.0-74 Page 
Global Storage 1 730071382 99:50:38 RUNOFF ..SRCJGLBDAT.BLI; 7 
} } SSBTTL "Globai storage’ 
GLOBAL STORAGE: 
15 1 GLOBAL 
1 i recmd : $rno_cmd; ! Command-Line information. 
18 1 GLOBAL 
19 1 iststf : COUNTED_LIST, 
9 1 tsfa : VECTOR [tsf_sizel, 
1 fs_allocate (mraa, ° 
¢ 1 fs_allocate (fra, ° 
1 fs_allocate (ira, 10) 
4 1 fs“allocate (xmra, 1005, ! Used for <INDEX flag processing. 
5 : ra, ! nefers to MRAa or MRAb. 
; Descriptors for title and subtitle. 
9 : 1 tittsf : VECTOR Ctsf_size],  ! Titles 
8 , : sbttsf : VECTOR Ctsf_sizel, ! Subtitles 
8 ¢ : Storage for titles and subtitles 
0334 1 fs_allocate (titmra, max_title), ! Titles 
th 5 : fs_allocate (sbtmra, max_title), ! Subtitles 
03 5 1 xtsf : VECTOR Ctsf_sizel, ! Used for <INDEX flag> processing. 
Oea6 ! khar, ! Character storage 
tok : This is the beginning of the SAVE/RESTORE area ttreeetareneenneneeereerenee 
0343 : ANY changes in this area should be reflected in SAVE.REQ as well. 
0344 1 ~= flgt : flag table Cflag_count), 
8 rf : ttable : COUNTED_LIST Cmax_tabs], ! Tab settings 
sie : The following definition macro is defined in ATCODE.REQ to be (256, BYTE). 
6 49 1 atable : atable_definition, ! Action table. Used to identify 
$09 1 ! what type of action is to be taken 
i ! on encountering any given character. 
326 1 putstf : VECTOR Cpdt_sizel, 
53 1 save : Ssave_block, ! This is the area where single 
see ! : ! items are stored. 
36 1 | This marks the end of the SAVE block. 
: ' ! Below is the additional area for SAVE ALL. 
35 1 — saveallt : Ssaveall_block, ' This area holds more items saved 
1 : gnty during a .SAVE ALL 
61 1 dattim : VECTOR (6) : bay and time pieces. 
: 1 hi list : COUNTED_LIST Cmax_leveis), 
6 ' $ecc_blockvector, ! Entity counter / caption area. 
1 
1 
1 


an 


(attr,...). 


5 


(4) 
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voe-000 Lobal Storage 1 730071383 99:50:88 ERUNOFF SRE GEBDAT L144 Vv 
; 241 U 1 ! $ 
; 28 U é 1 xpd_flags, ! Default attributes flags. : 
: tz U i } er! fs_allocate (xpd_append, xp_string_size), | Default APPEND = string. : 
. n : 
; 4g 7 i this is the end of the SAVE/RESTORE area teterereeeeeeeeeeeeneeeeerenerenee : 
; re o } " gavstk : savstack, ! Storage for the save/restore List. : 
: : y re | RIF DSRPLUS XTHEN : 
: 3 - fi | Topnote related globals. : 
: 4 U . 2 topnot : tn definition ! Topnote control table. : 
3 209 U ¢ 1 tnrec : tnfec definition, ! Topnote file record control area. . 
: 2 U 1 tniiob : REF $RPO_10B (), ! Internal topnote 108. : 
Bi eo U 4 1 tnuiob : REF $XPO_I0B (), ! User topnote 108. : 
; 258 U > 2 tnOiob : $XPO_ Q, : 
; 259 U +] 1 tnliob : SXP 0), F 
; 260 U 1 tnpdt : VECTOR Cpdt_size), ! Save area for paragraph stuff. ; 
; 261 U 8 1 tnsca : VECTOR Esca_sizel, ! Save area for SCA. : 
; o¢ U 0389 1 tntsf : VECTOR Ctsf_sizel, ! Substitute TSF. ; 
; 26 U 0390 1 tnhdd 3 
> 264 u 0391 1 tnhich, ; 
: 265 U 8 1 tnhisc, ; 
; 266 U 0395 1 tnhlsk, 3 
; 267 U 0394 1 tnhlst, 3 
> 268 u 0395 1 tnhara, : 
; 269 U 38 1 tnhpdt, 

: 270 U 0397 1 tnhrch, 

3 $f¢ u 0399 1 fs_allocate (tnmra, tnmra_size), 

: 27 U 0400 1 “dd : VECTO t33 ! Susbtitute display descriptor. 
: 274 U 3 1 tn_lchr : VECTOR ' Substitute .LIST bullet char. 
3 2re U ¢ 1 tn_list : COUNTED LIST C3), ! Substitute .LIST counters 

; 26 U 04035 1 tn_llchr : VECTOR ° ' Substitute left character 

s ef U 0404 1 tn_irchr : VECTOR ° ! Substitute A character 

3 re ; 05 : tniskp : VECTOR . ! Substitute .LIST el spacing. 
; 30 y oF Footnote numbering variables. 

; Hy U 09 1 i_character, 

3 19 : richaracter, 

; Be U \§ 1 i The following structures are updated each time the 

3 a6 ¥ 1? ! ATTRIB routine is called. 

: 288 U 0415 1 xp_ flags, ! Working attributes flags 

3 34 U \¢ 1 fs_allocate (xp_append, xp_string_size), ! Working APPEND = string 
; s' 2 ' \ fs_allocate (xp_sort, xp string_size), ! Working SORT = string 
: ; ? 19 ' General-purpose mra and tsf substitution aids. 

: 29% U 0421 1 hold_mra, ' Holds MRA address. 

: 295 U § 1 fs_ allocate (temp_mra, temp_size_mra), ! Substitute MRA. 

3 39 U 1 hold_tsf, ! Holds TSF address. 

; 2 U 4 1 temp_tsf : VECTOR Ctsf_sizel, ! Substitute TSF. 


SE ASRS, BOT eee x 
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; U 0425 1 ! 
3 39 8 r ! } Flag to indicate when GETNUM is processing a $ or $$ entity. 
: 301 U 0408 1 rocessing_entity, ! Used by NEWSUB. 
3 1 U 04 1 ont ity, in footno e. ! Used by FCIMRA, 
: 304 a) 
: 5 4 § 1 tsf : REF VECTOR Ctsf size). ! Refers to TSFa or TSFb. 
3 4 1 fnesiz : fnlext_size_definition, ! Sizes of bending footnotes. 
; 434 1 fnisiz : fn_int_size_definition, ! Number of TSF/MRA pairs in 
; 308 435 1 , : each pending footnote. 
3 4 $ 1 fnct : fnct_definition, ! Footnote control table. 
; 31 4 1 ca : gca_definition, ! Global control area. 
; «(311 438 1 ct : het definition, ! Header control area. 
; \¢ 0439 1 ifstk : ifsftack, ! Stack for .IFs, and so on. 
s 31 440 1 fohlch, 
; 314 441 1 fohrch, 
3 319 rr | 1 fohdd, 
: 1 04435 1 fohlsc, 
3; 31 0444 1 fohlsk, 
; «4318 0445 1 fohlst, 
3; 319 0446 1 fohpdt, 
3 0 Bree 1 fohmra, 
: 1 448 1 fohtsf, 
3 § 0449 1 foorec : foorec_definition, 
3 t pees : fs_allocate (foomra, s_fmra), 
3 2 beeg : NOTE: An RSX I0B gets 80 (120 octal) words allocated to it. 
3 $$ bas 1 fooiob : REF $XPO_IOB (), ! Used for processing footnotes. 
; 328 0455 1 fotiob : REF $XPO"10B (), 
3 9 0456 1 foliob : $XPO_10B (), ' Never referred to directly 
; 0 0457 1 fo2iob : $XPO_10B (), ! Never referred to directly 
: 1 0458 1 foopdt : VECTOR pdt_size). ! Save area for paragraph stuff. 
4 3 0459 1 foosca : VECTOR Csca sigs ° ' Save area for SCA 
3; oo 0460 1 f_list : COUNTED_LIST (3), ! Substitute .LIST counters 
; 334 0461 1 f_lchr : VECTOR ° ! Substitute .LIST bullet char. 
3; 335 0462 1 f_tskp : VECTOR . ' Substitute .LIST EL spacing. 
; 0465 1 f_llcnr : VECTOR ° ! Substitute left character 
3 7 0464 1 f_lrehe : VECTOR ° ' Substitute right character 
; 8 465 1 f_ldd VECTOR ' Susbtitute display descriptor. 
: 339 466 1 footst : VECTOR Ctsf_size), |! Substitute TSF. 
: 340 467 1 rac : irac_definition, 
3; «(341 Bee 1 npagen 2 ge e definition, ! Page number of next page 
3 4g og 1 spager : BLOC Enax_page “ranges * page_sct_sized. ' List of seert tng pages 
; 34 470 1 tpager : BLOCK [max_page_ranges * page_sct_sizeJ, ! List of terminating pages. 
: 344 471 1 pagen : pe e_definition, ' rage number of current page 
3: 345 472 1 rnoob : $XPO_I0B (), ' 108 for binary index and TOC output. 
: § 7 brniob : $XPO_10B (), ' I10B for binary crossref input. 
3; 34 7% «13! ndxpol INITIAL (0), ! Address of indexing pool. 
; 8 7$ (61 3! ndxsge INITIAL (0), ! End of current segment. 
: 349 476 1 !! ndxsgf : INITIAL (0), ' No storage in current segment. 
; 350 477 1 3! xtncnt, ! Number of XTNTAB entries. 
3; 351 478 1 !! xtnilsp INITIAL (0), 
: 2¢ 479 13! xtnlsx INITIAL (0), 
; 35 480 17 !! xtnpol INITIAL (0), 
3 «354 481 1 !! xtnsgp INITIAL (0), 
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; 5 4 § 5 it xtntab : REF xtntab_define, ! List of prensect ten numbers assigne : 
3 $ 4 7 ¢! xpagen : REF xpagen gertne, ! Page number associated with transaction number. ; 
: 484 1 sca : sca_definition, : Scanner control area. : 
; 8 ? 5 ! scalit : VECTOR sca.case_size], ! Save case rules here during Literal : 
; rocessing. : 
; 360 4 ; 1 numprm : nusore get ine. ! Wor ores. ; 
; 361 4 3 1 fs_allocate (fs01, 150), ! General purpose character string : 
; 36 “ 1 ! work area. ; 
; 490 1 outopt : outopt_define, ' Output options. : 
; 364 491 1 frmstd, ! Depth of FRMSTK (0 means empty). ; 
: 136 1 frmstk : form_stack, ; 
: 493 1 hle : hile definition, 3 
Pa. 94 1 hldsp : VECTOR Cmax_levels], ; 
; 368 495 1 istchr : REF VECTOR, H 
; 369 rh 1 istlch : REF VECTOR, : 
; 370 497 1 istrch : REF VECTOR, : 
: 371 498 1 istldd : REF VECTOR : 
; i 0499 1 (stent : REF COUNTED_LIST, ; 
3; OV 0500 1 istskp : REF VECTOR ; 
: 374 0501 1 ichlst : VECTOR nm(st_maxsizel, : 
: 375 B208 1 rchlst : VECTOR Cnmlst_maxsize), ; 
3 sre 0503 1 lddlst : VECTOR Cnmlst_maxsize), ‘ 
: 377 0504 1 chist : VECTOR Cnmlst_maxsize), : 
; 378 0505 1 nmlst : number_Llist 3 
: 379 0506 1 pdt : REF pdt_definition, ; 
: 380 0507 1 phan : ppen definition, : 
: 331 0508 1 skplst : VECTOR fal sy sexsize). 3 
3 $66 t344 ' io stk : BLOCKVECTOR Cmax_require, iob$k_length], ; 
3 ! Active input e s saved in K. F 

384 bey) : Active i file 108 d in IOBST : 
: 386 §a1 1 rneiob : REF $XPO_IOB (), ! Storage for primary input I0B. ; 
; 387 0514 1 rnaiob : REF $XPO_IOB (), ! Storage for output 108. : 
; 388 0515 1 rniiob : REF $XPO_10B (), ! Input 10B currently active. 3 
; 389 0516 1 rnoiob : REF $XPO_I0B (), ' Output file I0B : 
; 390 0517 1 ! (i.e., for generated document). : 
3; 391 g215 1 tteiob : $XPO_10B (), ' Standard error file (usually TTY:). : 
: 4 519 1 ttiiob : $XPO_IOB (), ! Standard input file Syoust}y TTY:). : 
3; 0520 1 ttoiob : $XPO_IOB (), ! Standaré output file (usual y TTY:). 3 
3; 394 0521 1 tsiiob : SXPO_10B (), ! Standard input file; but STREAM, : 
3 a B2 ¢ : ! not RECORD. : 
: 397 0524 1 ! Declare a string dence jptor that will point to the ‘resultant’ file 3 
; 338 : 5 } : name string when any file operation fails. : 
; rts : ; ! f fname : SSTR_DESCRIPTOR (CLASS = DYNAMIC), 
: rs 529 1 ! Declare a field to contain a secondary error code. This field will be 
: 40 530 1 ! stuffed with a code exp. eining why the requested operation against the 
3: 404 0531 1 ! file specified in FFNAME failed. This error code will be defined by the 
3 406 ; ¢ ' ; the 1/0 system being used (i.e. XPORT or RMS). 
: 40 534 1 semcod, 
; oe 535 1 vront, ' Number of variables. 
; 40 5 § 1 vrname : vrname_def, ! The variable names. 
; 410 5 1 vering : vrlng_ def ' The Length of the names. 
> 411 538 1 vrbool : vrbool_def, i TRUE/FACSE value. 
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vO4-000 Global Storage ere t 88s P8:ba8s = AN SAE Sci Spt or 4, - as 
MY ets rurttigey: = tata tise 
; Vv : V ; 
: re 4g ! orare” : vrerc det,” ! Source flag. | variable definition. 
: 416 se 1 SIF BLISS (BLISS32) XTHEN 
: tis te ! uF lffct ! Global context cell used by LIBSFIND_FILE 
: 419 546 1 eens ! will goncetn the index into the following table which 
: 2 03c8 : ! identifies what the input file's extension field is. 
: 4 0549 1! The following two esate iff ro types determine which output file type 
3; 6 § 229 1 ! results ‘ronan input f type. "Phe two Lists must voneta in erder’ sines 
3 : ¢ 22) : ag a ys is oon? by seere : ov? ¢ one siet and Using the computed inden 
3 ! to fetc e resu rom the other used in or 
; : $ 338 ! } the VMS implementation and CLH.BLI hig the NB bse 56 implementation. 
: 4 8 0385 IPFTCT (above) must indicate the Length of each table. 
ri. 0557 1 GLOBAL BIND 
; tt 3238 : ipftop = PLIT ( ! InPut File Type OPtions 
: 438 0560 1 CHSPTR(UPLIT('.RNO')), !Produces .MEM 
3 434 U 0561 1 XZIF DSRPLUS XTHEN 
3 $32 U 8286 ! af! CHSPTR(UPLIT('.RTB')), !Produces .MET 
. ne CASSTRGPHTE -AMT}}> tproduees AE 
3 . ‘Produces . 
; 439 0566 1 CHSPTR(UPLIT('.RND')), !Produces .DOC 
i Be SISTA Rs 33" (produces “aE 
3 oR . 'Produces . 
3; 44 0569 1 CHSPTRC(UPLIT('.RNC')), !Produces .CCO 
: 44 0570 1 EHSPTRCUPLIT(' (RNE*)). 'Produces .ERR 
BAY SISTRIGpLHT (SAM 3 (PPSaHEES 
3 , ‘Produces . 
; 466 pare 1 CHSPTR(UPLIT('. RNP')). ‘Produces .OPR 
3: 447 0574 1 CHSPTR(UPLIT('.RNS')) ‘Produces .STD 
>; 448 U 0575 1 SXIF DSRPLUS XTHEN 
; 449 U 0976 ai CHSPTR(UPLIT(".*#")) ‘Wild card file extension 
: 431 0378 ): VECTOR, 
: 438 gene ' opftop = PLIT ( ! OutPut File Type OPtions 
; 455 0382 1 CHSPTR(UPLIT('.MEM")), !From .RNO 
; 456 yu 05 1 ZIF DSRPLUS ZXTHEN 
; $2f U b2ee 1 “FI CHSPTR(UPLIT('.MET')), 'From .RTB 
: 459 586 1 CHSPTR(UPLIT(".MEC')), !From .RNT 
; 460 5 1 CHSPTRC(UPLIT(* .MEX')), !From .RNX 
BB CISTAMPET TE 206033" (eres a 
P4 . oe ms. 
Z 18 590 1 CHSPTR(UPLIT(* .BLB')), :From . RNB 
. nce SATA GREHTES ERB} Uo AM 
: 46 59 1 CHSPTR(UPLIT('.PLM')), !From .PNL 
3; 46 594 1 CHSPTR(UPLIT(*.MAN')), 'From .RNM 
; 468 595 1 CHSPTR(UPLIT(*.OPR')), 'From .RNP 
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v04-000 Global Storage 122868=1 382 99:50:38 RUNOFF .SRCIGLEDAT.BLI; (4) 
; 469 596 1 CHSPTR(UPLIT('.STD')) !From .RNS 
s 670 U o 35 1 ZIF DSRPLUS XTHEN, 
; 471 U 38 1 CHSPTR(UPLIT('.MEM')) ‘!From .*e* 
$ ht; 0599 1 XFI 
3 67 600 1 ): VECTOR; 
3: 474 U 0601 1 XIF DSRPLUS %THEN 
; 475 U 06 § 1! Various keyword table lListheads. 
; 476 U 06 1 GLOBAL 
s 677 U 0604 1 kwtrpn, ! .ReferencePoint Names 
; 478 U 0605 1 kwtcor, ' Cross-Book crossReference structures 
3 rh 4 4 one : kwtudm; ! User Defined Macros (counter variable names) 
>; 6481 U $604 1 $Skeyword_ table (kwtpdm, G, ! Predefined Macros (''$$'' entity names) 
: 48 U 0609 1 (APPENDIX, kwSpdm_appendix), 
: 48 U 0610 1 (CHAPTER, kwSpdm_chapter) 
: 484 uU 0611 1 (CURRENT_FILE, kw$pdm-current_file), 
; 485 U pels 1 (DATE wSpdm_date) 
: 486 u 0613 1 (EXAMPLE, kw$pdm_example), 
3; 487 U 0614 1 (FIGURE kwSpdm_figure), 
: 488 uU 0615 1 (FOOTNOTE kw$pdm_ footnote), 
; 489 U 8918 1 (HEADER_LEVEL, kwSpdm_header_level), 
; 490 U 061 1 (MARGIN, kwSpdm_margin), 
; 491 U 0618 1 (MARK, kwSpdm_mark), 
: 49 U 0619 1 wSpdm_page), 
; 49 U 0620 1 (PAGE_SIZE, kwSpdm_page_size), 
3 494 U bess 1 (ROOT_FILE, kwS$pdm_root_file), 
> 495 U 06 ; 1 (RUNNING, kwSpdm_running), 
; 496 U 0623 1 (SECTION, kwSpdm_section), 
: 497 U 0624 1 (SPACING, kwSpdm_spacing), 
; 498 U 0625 1 (TABLE, wSpdm_table), 
3; 499 U 06 § 1 (TIME, kwSpdm_time) 
; 500 U 06 1 ; 
; 501 U 86 8 1 
: Sue U 0629 1 $keyword_table (kwtpdp, G, ! PreDefined Parameters (''S$'' entity names) 
; 503 U 0630 1 (DAY kw$pdp_day 
: 504 U 0631 1 (HOUR, kwSpdp_hour), 
s 305 U Boag 1 (LEFT kwSpdp_left), 
; 506 U 0633 1 (LENGTH, kw$pdp_ Length), 
; 507 U 0634 1 (MINUTE, kwSpdp_minute), 
; 508 U 0635 1 (MONTH, kwSpdp_month), 
3; 509 U 0636 1 (RIGHT, kwSpdp_right) 
, 310 U 0637 1 (SECOND, kw$pdp~second), 
3; 511 U 0638 1 (WIDTH, kwSpdp_w ° 
3 216 U 0639 1 (YEAR, kwSpdp_year) 
s 51 U 0640 1 3 
; «514 641 1 XFI 
3 51S R066 1 
; 516 0645 1 GLOBAL BIND ! Flag table search order. 
s aif 0644 1 fltso = PLIT ( 
; 518 Roe? 1 
3; 519 U ong 1 SIF DSRPLUS Z%THEN 
3 250 U vet : art NPX_FLAG, ! <Nopermute Index flag> 
; $e 649 1 SUB_FLAG, ! <SUBSTITUTE flag> 
3 25 650 1 QUO"FLAG, ' <QUOTE flag> 
3; 526 651 1 UPP_FLAG, ' <UPPERCASE flag> 
s 525 652 1 LOW_FLAG, ' <LOWERCASE flag> 
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GLBDAT Define global Literals and data structures 16-5¢ =| AX-11 Bliss-32 V4.0-74 Page 14 GNA 
v04-000 Global Storage 1 =360-} 38 99:36 38 RUNOFF SREIGLBDAT OL 1 24 . (4) v04 
re TTOIOB::.BLKB 44 : 
8 8 TSIIOB::.BLK 44 : 
rt EENAME:: .BLKB ; 
3 SEMCOD:: .BLK 4 ; 
8 VRCNT:: .BLK 4 $ 
95C VRNAME :: {BLKB %6 : 
AAC VRLNG:: .BLK 4 HY 
B VRBOOL: : -BLKB 4 : 
B54 VRFFLG::.BLKB 4 : 
BAS VRTFLG::.BLKB 4 . 
BFC VRSRC:: .BLKB 4 : 
7 LFFCTX::.BLKB 4 2 
C54 IPFTYP::.8LKB 4 ; 
RINTES== 8 ‘ 
S FMRA== 0 . 
TRMRA_SIZE== 73° : 
IPFTCT== 1 $ 
IPF TOP== P.AAA : 
OPF TOP== P.AAN é 
FLTSO== P.ABA ; 
; PSECT SUMMARY : 
: Name Bytes Attributes 
: $ 48 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; S$GLOBALS 15448 NOVEC, WRT, RD *NOEXE ,NOSHR, LCL, REL, CON. NOPIC.ALIGN( ) 
; SPLITS 256 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; ABS. 0 NOVEC,NOWRT, * NORD *NOEXE, NOSHR, LCL, AB CON,NOPIC,ALIGN(0O) 
; Library Statistics 
io ee ee Symbols -<------- Pages Processing 
A File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 85 14 252 00:00. 
> 7$255$0UA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 238 19 86 0:00.3 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:GLBDAT/OBJ=OBJ$:GLBDAT MSRC$:GLBDAT/UPDATE=(ENH$:GLBDAT) 
3; Size: 0 code sy a 15752 data bytes 
3; Run Ti 


me: Ba?) 
; Elapsed Time: 0: 4: 5 
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-000 Global storage 


; Lines/CPU Min: 

3 Seeniy At apy LF 4 $4 
3 aoty Used: 135 pages 
; Compilation “Complete 
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